tclsh86 d:/codes/tcl/tank/tank.tcl %*